home *** CD-ROM | disk | FTP | other *** search
- ;------------------------------------------------------------------------------
- ; .ss.
- ; `²²'
- ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
- ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
- ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
- ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
- ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
- ; .sS²°$$$²²°"' d²°'
- ; .$$² .$$'
- ; $$$.,d$$'
- ; `²S$$S²'
- ;------------------------------------------------------------------------------
- ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
- ;------------------------------------------------------------------------------
- ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
- ;------------------------------------------------------------------------------
-
- Boolean BOOLEAN001
- Boolean BOOLEAN002
- Integer INTEGER001
- String STRING001
- String STRING002
- String STRING003
- String STRING004
- String STRING005
- String STRING006
- String STRING007
- String STRING008
- String STRING009
- String STRING010
- String STRING011
-
- ;------------------------------------------------------------------------------
-
- FOpen 1, PPEPath() + "tk-dos.cfg", 0, 0
- FGet 1, STRING004
- FGet 1, STRING005
- FGet 1, STRING006
- FGet 1, STRING007
- FGet 1, STRING008
- FGet 1, STRING010
- FGet 1, STRING011
- STRING002 = "@X0F1.2"
- STRING003 = "@X0Fr@X07egistered @X0Fb@X07bs @X08:@X0F " + STRING005
- BOOLEAN002 = 0
- If (STRING011 == "OFF") Goto LABEL001
- FAppend 2, PPEPath() + "TK-DOS.LOG", 1, 3
- FPutLn 2, "--░-·----░-·-─-░--─--·--─--·---─----------░-----·─--------·"
- FPutLn 2, "[φ] Starting ToxicDos v1.2"
- FPutLn 2, "-─--·-░-─--·--░------·-░---·--─░--─-----──·─------░--─----·"
- FPutLn 2, "`-> user logged onto " + STRING005 + " at " + String(Time()) + ", " + String(Date()) + " on node # " + String(PcbNode())
- FPutLn 2, "`-> Following Commands Inputed by User : "
- :LABEL001
- DispFile PPEPath() + "tk-login.pcb", 1
- :LABEL002
- If (BOOLEAN001) Goto LABEL004
- Newline
- Input STRING007, STRING001
- FPutLn 2, STRING001
- Select Case (Upper(STRING001))
- Case "LOGOFF"
- FClose 2
- DispFile PPEPath() + "tk-bye.pcb", 1
- Hangup
- Case "DIR"
- Newline
- DispFile PPEPath() + "tk-dir.pcb", 1
- Case "CLS"
- Cls
- Case "VER"
- Newline
- PrintLn "@X0Fv@X07ersion @X08: " + STRING002
- PrintLn "@X0Fb@X07y @X0Fw@X07izard @X08[@X0BTOXIC KRYSTAL@X08!]"
- PrintLn "" + STRING003
- Case Upper(STRING006)
- Newline
- BOOLEAN001 = 1
- FClose 2
- DispStr STRING010
- Case "PAGE"
- Call STRING004
- PageOn
- INTEGER001 = 0
- If (!(STRING001 == "")) STRING009 = 1
- Case "NEWUSER"
- Newline
- BOOLEAN001 = 1
- FClose 2
- DispStr STRING010
- End Select
- :LABEL003
- If (STRING009 == 1) Goto LABEL005
- Goto LABEL002
- :LABEL004
- End
- :LABEL005
- Newline
- Print STRING008
- STRING009 = 0
- Goto LABEL003
-
- ;------------------------------------------------------------------------------
- ;
- ; Usage report (before postprocessing)
- ;
- ; ■ Statements used :
- ;
- ; 1 End
- ; 1 Cls
- ; 20 Goto
- ; 8 Let
- ; 1 Print
- ; 3 PrintLn
- ; 11 If
- ; 3 DispFile
- ; 1 Input
- ; 1 FOpen
- ; 1 FAppend
- ; 3 FClose
- ; 7 FGet
- ; 6 FPutLn
- ; 1 Hangup
- ; 6 Newline
- ; 1 Call
- ; 2 DispStr
- ; 1 PageOn
- ;
- ;
- ; ■ Functions used :
- ;
- ; 15 +
- ; 10 ==
- ; 8 !
- ; 8 Upper()
- ; 1 Date()
- ; 1 Time()
- ; 3 String()
- ; 5 PPEPath()
- ; 1 PcbNode()
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Analysis flags : BC
- ;
- ; B - Brute hangup ■ 1
- ; Program hangup without notification. This may be a good way to
- ; disconnect a user, but if used randomly, may be very nasty
- ; ■ Search for : HANGUP, DTROFF
- ;
- ; C - Call child PPE ■ 3
- ; This is usually normal, but may be a tricky way to launch some
- ; sysop-only commands.
- ; ■ Search for : CALL
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Postprocessing report
- ;
- ; 0 For/Next
- ; 0 While/EndWhile
- ; 0 If/Then or If/Then/Else
- ; 1 Select Case
- ;
- ;------------------------------------------------------------------------------
- ; AEGiS Corp - Break the routines, code against the machines!
- ;------------------------------------------------------------------------------
-